00100 QQQ 00200 LL1 0 5; 00300 P2 RHY/8/16//REP 3 4/8/FINE*; 00400 P3 NO/C2/C5/D3/BF4/FS2/E5*; 00500 P4 1000/P5 .04/P6 .1/P8 F2/P10 F1; 00600 P7 RHY/TEMPO/104*/4//////8//////*; 00700 P11 LIT/A(";X←0"/" "/)/@A/B(";X←0"/";X←0"/" ")/@B/@B/@B*; 00800 END; 00900 TEMPO/104*; 01000 INSERT -1; 01100 SEG(F2);0 1 1 25 .3 50 0 75 0 100;X←0; 01200 RUN;